home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / ZEPPDBL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  3.6 KB  |  118 lines
  1. 10  'ZEPPDBL - Extended Double Zepp Antenna - 18 APR 96 rev. 28 SEP 96
  2. 20  REM - 1994 ARRL HANDBOOK, pages 33-11 to 33-13
  3. 30  IF EX$=""THEN EX$="EXIT"
  4. 40  CLS:KEY OFF
  5. 50  COLOR 7,0,1
  6. 60  UL$=STRING$(80,205)
  7. 70  U$="####.###"
  8. 80  PI=3.14159
  9. 90  '
  10. 100  '.....start
  11. 110  CLS
  12. 120  COLOR 15,2
  13. 130  PRINT " ZEPP (Double Extended) ANTENNA";
  14. 140  PRINT TAB(57);"by George Murphy VE3ERP ";
  15. 150  COLOR 1,0:PRINT STRING$(80,223);
  16. 160  COLOR 7,0
  17. 170  LOCATE 3:X=14:GOSUB 820   'diagram
  18. 180  PRINT UL$;
  19. 190  '
  20. 200  '.....standard antenna note
  21. 210  OPEN"I",1,"\data\docfiles\antenna.doc"
  22. 220  IF EOF(1)THEN 240
  23. 230  INPUT#1,NOTE$:PRINT "   ";NOTE$:GOTO 220
  24. 240  CLOSE
  25. 250  PRINT
  26. 260  PRINT TAB(12)"(TNX to John Reh K7KGB and 1994 ARRL HANDBOOK, page 33-11)";
  27. 270  '
  28. 280  COLOR 0,7:LOCATE 25,24:PRINT " Press 1 to continue or 0 to EXIT ";
  29. 290  COLOR 7,0
  30. 300  Z$=INKEY$:IF Z$="" THEN 300
  31. 310  IF Z$="0"THEN CLS:RUN EX$
  32. 320  IF Z$="1"THEN 350
  33. 330  GOTO 300
  34. 340  '
  35. 350  '.....data input
  36. 360  VIEW PRINT 17 TO 24:CLS:VIEW PRINT:LOCATE 17
  37. 370  INPUT " ENTER: Frequency of operation..................(MHz)";F
  38. 380  VIEW PRINT 17 TO 24:CLS:VIEW PRINT:LOCATE 17
  39. 390  PRINT " Press number in < > to choose:"
  40. 400  PRINT UL$;
  41. 410  PRINT "  < 1 > 450-- 1.6 mm (#14 AWG) open-wire feedline: ";
  42. 420  PRINT "B = 34.85 mm (1-3/8";CHR$(34);")"
  43. 430  PRINT "  < 2 > 450-- U.S.A. TV-type ladder-line:          ";
  44. 440  PRINT "B = 25.4 mm (1";CHR$(34);")"
  45. 450  Z$=INKEY$:IF Z$=""THEN 450
  46. 460  IF Z$="2"THEN COLOR 0,7:LOCATE 12,17:PRINT "THEN":COLOR 7,0
  47. 470  IF Z$="2"THEN COLOR 0,7:LOCATE 11,45:PRINT "(TV Ladder-line)":COLOR 7,0
  48. 480  IF Z$="1"THEN V=0.97:B=0.0347525:GOTO 520
  49. 490  IF Z$="2"THEN V=0.95:B=0.0254:GOTO 520
  50. 500  GOTO 450
  51. 510  '
  52. 520  '.....display data
  53. 530  VIEW PRINT 17 TO 24:CLS:VIEW PRINT:LOCATE 17
  54. 540  PRINT "        Frequency of operation.................... <0x9F!>=";USING U$;F;
  55. 550  PRINT " Mhz (";USING "###";300/F;:PRINT "m.)"
  56. 560  '
  57. 570  PRINT "        Velocity factor of open-wire line..........V=";USING U$;V
  58. 580  '
  59. 590  A=300/F*0.64    'leg length in metres
  60. 600  L=2*A+B
  61. 610  '
  62. 620  L=2*A+B
  63. 630  PRINT "        Over-all length of flat-top................L=";
  64. 640  PRINT USING U$;L;:PRINT " m.=";USING U$;L/0.3048;:PRINT " ft."
  65. 650  '
  66. 660  PRINT "        Length of each leg.........................A=";
  67. 670  PRINT USING U$;A;:PRINT " m.=";USING U$;A/0.3048;:PRINT " ft."
  68. 680  '
  69. 690  Y=B*10^3
  70. 700  PRINT "        Open-Wire conductor spacing................B=";
  71. 710  PRINT USING "####.#";Y;:PRINT " mm. =";:PRINT USING U$;Y/25.4;:PRINT " in."
  72. 720  C=300/F*0.145*V
  73. 730  PRINT "        Length of 450 - matching section...........C=";
  74. 740  PRINT USING U$;C;:PRINT " m.=";USING U$;C/0.3048;:PRINT " ft."
  75. 750  '
  76. 760  COLOR 0,7:LOCATE CSRLIN,18
  77. 770  PRINT " To prune trim C. DO NOT CHANGE DIMENSION A! ";
  78. 780  COLOR 7,0
  79. 790  '
  80. 800  GOTO 1000
  81. 810  '
  82. 820  '.....diagram 1
  83. 830  COLOR 0,7
  84. 840  LOCATE ,X:PRINT "                                                     "
  85. 850  LOCATE ,X:PRINT "   CALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND L SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALL   "
  86. 860  LOCATE ,X:PRINT "   CALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND A SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALL CALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND A SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALL   "
  87. 870  LOCATE ,X:PRINT "   CALL                   SOUNDDEFDBLCALL CALLDEFSNGSOUND B                 CALL   "
  88. 880  LOCATE ,X:PRINT " SOUNDSOUND/THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN<0xCB!>/<0xCB!>THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN/SOUNDSOUND "
  89. 890  LOCATE ,X:PRINT "                         PRESETSOUND<0xB6!><- 450 - open-wire       "
  90. 900  LOCATE ,X:PRINT "   / = strain-relief     PRESETSOUND<0xB6!>   matching section      "
  91. 910  LOCATE ,X:PRINT "       insulator         PRESETSOUND<0xB6!>   C long.               "
  92. 920  LOCATE ,X:PRINT "                        VARPTRUSRSOUNDUSRCOLOR                        "
  93. 930  LOCATE ,X:PRINT " THENTHEN<0xCB!> = 1.6 mm (AWG 14)  CALL1:1CALLBalun                   "
  94. 940  LOCATE ,X:PRINT "       copper wire      CLSSOUNDPOINTSOUND'                        "
  95. 950  LOCATE ,X:PRINT "                          CSRLIN<- 50 - coax, any length  "
  96. 960  LOCATE ,X:PRINT "                          <0xDF!>                          "
  97. 970  COLOR 7,0
  98. 980  RETURN
  99. 990  '
  100. 1000  '.....end
  101. 1010  GOSUB 1050
  102. 1020  GOTO 100
  103. 1030  END
  104. 1040  '
  105. 1050  'HARDCOPY
  106. 1060  GOSUB 1170:LOCATE 25,2:COLOR 14,6
  107. 1070  PRINT " Press 1 to print screen, 2 to print screen & ";
  108. 1080  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  109. 1090  Z$=INKEY$:IF Z$="3"THEN GOSUB 1170:RETURN
  110. 1100  IF Z$="1"OR Z$="2"THEN GOSUB 1170:GOTO 1120
  111. 1110  GOTO 1090
  112. 1120  FOR QX=1 TO 24:FOR QY=1 TO 80
  113. 1130  LPRINT CHR$(SCREEN(QX,QY));
  114. 1140  NEXT QY:NEXT QX
  115. 1150  IF Z$="2"THEN LPRINT CHR$(12)
  116. 1160  GOTO 1060
  117. 1170  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  118.